RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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lee 

FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

ABSTRACT: 

Definitions having to do with SCA (SCANT control area). 

! ENVIRONMENT: Compatible BLISS 

i AUTHOR: Rich Friday 

i CREATION DATE: 1978 

MODIFIED BY: 

016 = REMO0016 ay, Marshall 16-Novenber=1983 

: Added macros with , 1+, hin their names and defining ce'ls 
: so ey can be obded Ken's SAVRES module using macro 

: names instead of numer ~ fsets. 

i 015 REMO001 Ray Marshall 7-November-1983 

’ Added 1 nore cells to the cose rules section to support | 3 ee 
; changing within the bet multinationa Eherecter set. 

: also required renumbering the whole table 

i 014 KFA00014 Alden 18-Sep-1983 

} For DSRPLUS: aden sca “aergin., pad. 

013A  KFAQ0013A Ken Alden 0-Sep-1983 


wef 
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from save to save all. 


013 KFA00013 Alden 13-Sep-1983 
For DSRPLUS: Added” StA wRD =fass to the SCA_PASS word (35) 


and made SCA_PASS info a bit. 
012 KFA00012 Ken Alden 05-Jul-1983 
added SCA_FLAGS to the save List. 
011 KFA0Q0011 
Nate 


For DSRPLUS: added SCA aA ples S tags passthrough 
For DSR: Extended SAVE & RESTORE capability 


010 KAD00010 Keith Dawson 07-Mar-1983 
Global edit of alt Dan + Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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MACRO 


‘eeecererertererterereerere 


‘Everything above this poin 


>> 
Sees enees 
a 
--cc 
aaa 


t 
oto "Ef e£eco"o™ 
SOOO DDAAIDOOOO 
+ 4 4 A) im) 
oO 
o 


z23 
zzz 


a 
BBOONM 


> PPrereererrrerrrer 


a6A querity 
SCA_f JUSTIFY 


ye ee 8 eee Oe ee ee ee ee 
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'Save case rules here when 
vexcept ons are set up. 


iCase rules for current word. 


q 
iDefault case rules. 


! 
'Save case rules here when 
yexcept ons are set up. 


i€ase rules for current word. 


iefault case rules. 


' 
iTRUE if case rules set for a _word only. 


Seeeeeeeeeeeerereeereeerererteeeets 


unted in SCA_CASE_SIZE. 


'(SAVE) TRUE if text should be justified. 
(SAVE) TRUE if filling Lines. 


'(SAVE ALL) TRUE if control characters allowed in input file 


!(SAVE)See FJNFNJ for explanation. 

!(SAVE) The Left margin. 

(SAVE) The right margin. 

! (SAVE) 1¢+number of Liank Lines between Lines of text. 
(SAVE ALL) TRUE if double spacing after *'.?!;:" 
(SAVE) TRUE if empty records have significance. 

'(SAVE ALL)Change bar character to be used if enabled. 
(SAVE) TRUE if .AUTOTITLE is in effect. 

TRUE if flags are enabled. 


end of Save area weeeeeeeeererererererereeresr 
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SCA_FC = SCA ° ‘TRUE if first character on the Line. 
SCA_NBITS = SCA ° 'SEE BFL OY 
SCA_X_FLAG = SCA ° ' TRUE in the middle fies a@ sequence 
{pared by the <INDEX f 
SCA_FRC_CASE = SCAC40]%, 'TRUE if case of current 
ivorg was forc 
SCA_CONT = SCAC41)%, iRUE {fuser said .NO SPACE 
SCA_DO_NBITS = SCAL42)2%, i SEE LOW 
SCA_PRESCAN = SCAL43)%, 'See SANT for exptanatian 
SCA_H = SCA(44)%, Us sed by Ft LIP == True if 
i co pect! ng , header level. 
SCA_SECT_EMPTY = ScAbGe iE. TRUE i noth ng n current section. 
SCA_XROUTINE = SCAL46)%, ‘Indicates which routine to call for indexing: 
'FALSE ==> XR, TRUE ==> SUBXR. 
ZIF DSRPLUS XTHEN 
SCA_PASS = (SCAC47])<0,1>%, | TRUE ueor is passing escape 
uence 
SCA_WRD_PASS = (SCAC47})<1,1>%, iFROE user “is pessin escape 
jpoquence “om with this word. 
SCA_MARGIN_PAD = (SCAC47])<8,8>%, ‘Num ber sgecee added at the 
ibeginning ° 
aI 
SCA_WRD_NBITS = SCAC48)%, 'SEE BELOW 
SCA_WRD_CNBITS = SCAL49 i. ieee Hee 
SCA_WRD_ACNBITS = SCA 3038 ° ea 
SCA_RSKTPS = SCAC51)%, i TRUE multiple spaces/tabs are to 
'be skipped. 
SCA_FC_CASE = SCAC52]%, 'TRUE if case rules to be used a 
‘those for the first character of 8 word. 
SC4%_ INDEX = SCAC5 'TRUE if indexing commands are to be obeyed. 
SLA_FRC_CHR = SCA ‘True if current character should not be. translated. 
SCA_ INDENT = SCA iE ipenging ndentation. 
SCA_PARA_PND = SCA !TRUE if a paragraph is pending. 
Everything below this point refers to the word currently being 
sca . 
i SESH KKLSAAAKAHAAAAAAARAAHAAHRAAAARAEARAAAREAEEASAeeReeeeeeereeeeeeee 
SCA ~WRD ON PNTR = SCA i, 'A CHSPIR to the tires character of the word. 
SCA_WRD_INT_L = SCA i, t Internal repres ntat on, size $9 ar. 
SCA_WRD_EXT- t = SCA i, jpxtorep ay -@., print posit sens? 
SCA_WRD-ISEGN = SCA[65)%, input bine ais fr or record nuab er. 
SCA_WRD_DRAFT = SCA ° TR if word ns +s A a hs area. 
SCA_WRD_DRAFT_F = SCA !The draft flag for this wo 
SCATURD BARS ~ = (SCACOBIS<BAR_>3, TRUE ¥f change bars ee with this word. 
SCA_WRD_BAR CHR = SCA ° Tuse this character as the change bar. 
SCA_WRD_CPERD = SCA . i gharagter be mB 8 worked on 
SCA_WRD_SEQN F = SCA e ‘TRUE SCA_WR ISEQN is an SOS style record number. 
SCALURD. JPAGEN = SCA § z, ‘Input page hyadér 
SCA_LWRD_FOOTW = SCA i, Hs numbe —o if of footnotes attached to 
$s wor 
SCA_WRD_F_XIN = ScAtre a. ‘First transaction number ossos fated vith this word. 
SCA_WRD-L'XTN = SCAL75)2, ‘Last transaction number associated with this word. 
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todiee for all fie 
to see how 


'The bits defined by 
'to BoLD and/or UNDer 
'set/unset by things 
MACRO 


SCA_BLD 
SCA_UND 
SCA_ ~BLDUND 


'The bits defined oY 
‘have any effect. TR 
‘done when the set i 
'These bits get set/c 
‘and so on. See F 


‘indicates whether or 
‘by a construct such 
vemphasis called for 


-ENABLE UNDERLI 
100200 This text will 
100300 were specified. 
100400 -DISABLE UNDER 


n 

pea 

arene after the ated 
SCA_DO_BLD 
SCA_ UND 
SCA_DO-BLDUND 
SCA_DO_OVR 


SCA_DO_IND 
SCA-DO_HYP 


'00500 because. the sd Say 


16-SEP-1984 16:56:44,297 Page 5 


SCA_WRD_LST_HYP = Star gore. 'TRUE if word to end with o*, 
SCA_WRD-HYP_PTR = SCA then SCA_ URDALST HYP 18,1 Thue, 
en 
SCA_WRD_LC_PNCT = SCA ub 'TRUE if last he ae bs was end-of-sentence punctuation. 
SCA_WRD-LST_SP = SCA inumber o spaces after last word. 
SCA_WRD_LST_JUS = SCA jirue if justification mark att oe. last word. 
SCA_WRD_LST_UND = SCA True if last space was underlined. 
LITERAL 
SCA_CASE_SIZE = 25, ‘Number of cells Genterotng 62 case information 
Liver. SCA_SIZE = 96; ‘Number of cells entire SCA 
SCA_SAVE_START = ¢2: ‘Starting number of the SAVEd SCA bits 
SCA_SAVE_END = 36; 'Ending jp) ™ i, 


lds haying to do with underlining, bolding, etc, see ENDCHR, ENDWRD, OUTLIN, and DOFLG 
these fields get manipulated. 


these macros get set to TRUE if peel s B sepesee. 
Line all characters it encounters. get 
and \&, and .ENABLE/.DISABLE "Bec SinG. etc. 


like “8 
= (SCA het Ts} OLD. _>%, 
= (SCA_NBITS)<UND-~>%, 
= (SCA_NBIT 18) <BLDORD. 8; Bolding and underlining 
! se 


these yt determine whether or not various flags 


UE means that the efor reepending function should be 


S recegni see. FALSE not. 
leared by commands euty t.4 -ENABLE/ DISABLE BOLDING, 
LGSEM, which sets these f 


‘There is a aitlersess between StAe XXX and sch? DO. XXX. The former 


not "° XXX type of of emphasi§ has been turned on 
as “&. The latter indicates whether or not the 
by XXX should really be done. In particular, 


igans der the ToL ening sequence: 


be under | ined because both .ENABLE UNDERLINING and _*_& 


LINING; this text (after the '':'') will not be lsaeitianed 
E UNDERLINING command indicates it should not be 

haps nore in tersentie is the fact that gven 

wo Swhobrbdés will not be underlined wher 

RLINING; these two words\@ will be under Lined, “but nothing 


sequence. 
. 'See FLGSEM 
= CSCA_DO_NBITS) <BLD_ 2, 
= (SCA_DO_NBITS)<UND~~>%, 
= (SCA_DO"NBITS)<BLDORD__>%, !Bolding and underlining as a set. 
= CSCADONGI TS) <OVR__>#. 
= (SCA_DO_NBITS)<IND +f 
= (SCA_DO_NBITS)<HY 


' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 

: 
' 

. 

' 

. 
' 

. 
' 
. 

' 

. 

' 

. 
' 

. 
' 

. 
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! The fields defined here are accumulated for an entire word. 
! They get cleared at the start of a new word. 


SCA_WRD_BLD = (SCA ne eI TS}<BLD =}. 
SCA_WRD_UND = (SCA_WRD-NBITS)<U 
SCA_WRD-BLDUND = (SCA_W URD-NS1TS} <LBORD *>%,  !Bolding and underlining as a set 
SCA_WRD_OVR = (SCA_WRD-NBITS)<OVR__>2? 
MACRO 
' The fields Cotined here get set just before a new character 
! is picked up. g! are inherited from the globat environment 
! in effect at that ime. 
SCA_LWRD_C_BLD = Tae ee EN TS cel _>%, 
SCA_WRD_C_U = (SCA_WRD_CNBITS)<UND_ >%, 
SCA_WRD_C_BLDUN = CSCA_WRD_CNBiTS) <B BL DORD >%, !Bolding and underlining as a set 
SCA_WRD_C"OVR = (SCA_WRD-CNBITS)<OVR__>%; 


MACRO 

! The fields defined here get set as verteys functions are : 

i requested, on a once-only basis (e.g., single character underline, &x). These fields, together with 
‘ the previous three fields, determine what functions have been 

! requested for a specific character. 


SCA_WRD_AC_BLD = (SCA_WRD_ACNBITS)<BLD__>%, 
SCA_WRD_AC_UND = (SCA_WRD_ACNBITS)<UND —>%, 
SCA_WRD_AC"BLUN = (SCA_WRD_ACNBITS)<BLDOND__>%, !Bolding and underlining as a set 
SCA_WRD_-AC_OVR = (SCA_WRD-ACNBITS)<OVR__>3; 

MACRO 
SCA_DEFINITION = 

VECTORCSCA_SIZEJ%; 

SFIELD HER SCA. FIELDS = 
H_R_$G_SCA_JUSTIFY = SINTEGER). 
H_R_$G_SCA_FILL = CSINTEGERJ, 
H_R_$G_SCA_CC OK = CSINTEGER), 
H_R_$G_SCA A-CROCK = CSINTEGER), 
H_R =$6-8CA, = CSINTEGERJ, 
H"R-$G_SCA “Rn = CSINTEGER), 
H_R-$G_SCA_SPACING = CSINTEGER), 
H_R-$G_SCA_ an 10D = (SINTEGER), 
H_R-$G_SCA_K = CSINTEGER], 
H-R-$G_SCA “BAR = CSINTEGERJ, 
H_R-$G_SCA “AUTOF ITE = CSINTEGER), 
H-R-$G_SCA_F = CSINTEGER 
TES; 

LITERAL 
H_R_SCASK_LENGTH = SFIELD_SET_SIZE; 

LITERAL 
MAX_H_R_SCA = 3; !This means there are a maximum of 3 concurrent PUSH_SCAs. 


MACRO 
$H_R_SCA_BLOCK = 
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END 
q; 
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